home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAM_RAD / PROPAGAT / 1004A.ZIP / PATH.BAS < prev    next >
BASIC Source File  |  1987-05-12  |  534b  |  16 lines
  1. 10 REM this program determines the db loss caused by an obstruction
  2. 20 REM in the antenna path
  3. 30 PRINT;"path loss due to obstruction":PRINT
  4. 40 PRINT,"wa2tif":PRINT
  5. 100 PI=3.1416
  6. 110 K=.3048
  7. 120 L=1.6093
  8. 130 R=6371.4
  9. 140 PRINT;"input heighth of antenna 1 in ft":INPUT H1
  10. 150 PRINT;"input heighth of obstruction in ft": INPUT H2
  11. 160 PRINT;"input distance to obstruction in miles":INPUT D1
  12. 170 T1=K*T1:T2=K*T2:D1=L*D1
  13. 180 A5=(H2-H1)/(1000*D1):A6=D1/(2*R)
  14. 190 AS=(A5-A6)*(180/PI)*3
  15. 200 PRINT,"attenuation in db":PRINT;AS
  16.